freeslot(
	"MT_BUGRED",
		"SPR_BUGR",
		"S_BUGR_1",
		"S_BUGR_2",
		"S_BUGR_P1",
		"S_BUGR_P2",
		"S_BUGR_P3"
)

mobjinfo[MT_BUGRED]={
	doomednum = 1572,
	painstate = S_BUGR_P1,	
	painsound = sfx_evyedg,
	deathsound = sfx_evyekd,
	deathstate = S_XPLD1,	
	spawnstate = S_BUGR_1,
	seestate = S_BUGR_P1,
	spawnhealth = 3,
	reactiontime = 16,
	painchance = 1000,
	speed = 16,
	mass = 200,
	damage = 2,
	radius = 18*FRACUNIT,
	height = 26*FRACUNIT,	
	flags = MF_ENEMY|MF_SHOOTABLE|MF_SPECIAL
}

states[S_BUGR_1]={SPR_BUGR, A, 4,  A_Chase, 0, 0, S_BUGR_2}
states[S_BUGR_2]={SPR_BUGR, B, 4,  A_Chase, 0, 0, S_BUGR_1}

states[S_BUGR_P1]={SPR_BUGR, C, 2,  A_ForceStop, 0, 0, S_BUGR_P2}
states[S_BUGR_P2]={SPR_BUGR, D, 2,  A_Pain, 0, 0, S_BUGR_P3}
states[S_BUGR_P3]={SPR_BUGR, D, 2,  A_ForceStop, 0, 0, S_BUGR_1}
